home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr38 / furnc403.zip / FURNACE.WCX (.txt) < prev    next >
Wildcat! WCX  |  1994-11-12  |  4KB  |  116 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  3822 bytes  01/29/123  04:17:48pm
  3. '! Code Segment Size  :887 bytes
  4. '! Data Segment Size  :4641 bytes
  5. '! String Segment Size:2935 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim s4463 As String
  9.       Dim s4467 As String
  10.       Dim s4471 As String
  11.       Dim s4475 As String
  12.       Dim s4479 As String
  13.       Dim s4483 As String*75
  14.       Dim s4558 As String
  15.       Dim s4562 As String*75
  16.       Dim s4637 As String
  17.  
  18.       ActivityLog "User Opened The Furnace Door!"
  19.       Open "furnace.cfg" For Input As 1
  20.       Input #1, s4463
  21.       Input #1, s4467
  22.       Input #1, s4471
  23.       Input #1, s4475
  24.       Close 1
  25.       Open "furnace.dat" For Input As 2
  26.       Input #2, s4479
  27.       Input #2, s4483
  28.       Close 2
  29.       Do
  30.   142   Cls 
  31.         Print
  32.         Print "@07@@0F@  @14@ @10@┌───────────────────────────────────────────────────────────────────────@1F@┐ "
  33.         Print "@0F@  @14@ @10@│   @14@███████@1E@╗ @14@██@1E@╗   @14@██@1E@╗ @14@██████@1E@╗  @14@███@1E@╗   @14@██@1E@╗  @14@█████@1E@╗   @14@██████@1E@╗ @14@███████@1E@╗   @1F@│ "
  34.         Print "@0C@  @14@ @10@│   @14@██@1E@╔════╝ @14@██@1E@║   @14@██@1E@║ @14@██@1E@╔══@14@██@1E@╗ @14@████@1E@╗  @14@██@1E@║ @14@██@1E@╔══@14@██@1E@╗ @14@██@1E@╔════╝ @14@██@1E@╔════╝   @1F@│ "
  35.         Print "@0C@  @14@ @10@│   @14@█████@1E@╗   @14@██@1E@║   @14@██@1E@║ @14@██████@1E@╔╝ @14@██@1E@╔@14@██@1E@╗ @14@██@1E@║ @14@███████@1E@║ @14@██@1E@║      @14@█████@1E@╗     @1F@│ "
  36.         Print "@0C@  @14@ @10@│   @14@██@1E@╔══╝   @14@██@1E@║   @14@██@1E@║ @14@██@1E@╔══@14@██@1E@╗ @14@██@1E@║╚@14@██@1E@╗@14@██@1E@║ @14@██@1E@╔══@14@██@1E@║ @14@██@1E@║      @14@██@1E@╔══╝     @1F@│ "
  37.         Print "@0C@  @14@ @10@│   @14@██@1E@║      ╚@14@██████@1E@╔╝ @14@██@1E@║  @14@██@1E@║ @14@██@1E@║ ╚@14@████@1E@║ @14@██@1E@║  @14@██@1E@║ ╚@14@██████@1E@╗ @14@███████@1E@╗   @1F@│ "
  38.         Print "@0C@  @14@ @10@│   @1E@╚═╝       ╚═════╝  ╚═╝  ╚═╝ ╚═╝  ╚═══╝ ╚═╝  ╚═╝  ╚═════╝ ╚══════╝   @1F@│ "
  39.         Print "@0C@  @1C@ @10@│                    @1F@(@1A@C@1F@)@1D@1994 @1A@WasteLands Software                        @1F@│ "
  40.         Print "@0C@  @1C@ @10@│               @14@██████@1E@╗   @14@██████@1E@╗   @14@██████@1E@╗  @14@██████@1E@╗                    @1F@│ "
  41.         Print "@0C@  @1C@ @10@│               @14@██@1E@╔══@14@██@1E@╗ @14@██@1E@╔═══@14@██@1E@╗ @14@██@1E@╔═══@14@██@1E@╗ @14@██@1E@╔══@14@██@1E@╗                   @1F@│ "
  42.         Print "@0C@  @1C@ @10@│               @14@██@1E@║  @14@██@1E@║ @14@██@1E@║   @14@██@1E@║ @14@██@1E@║   @14@██@1E@║ @14@██████@1E@╔╝                   @1F@│ "
  43.         Print "@0C@  @1C@ @10@│               @14@██@1E@║  @14@██@1E@║ @14@██@1E@║   @14@██@1E@║ @14@██@1E@║   @14@██@1E@║ @14@██@1E@╔══@14@██@1E@╗                   @1F@│ "
  44.         Print "@0C@  @1C@ @10@│               @14@██████@1E@╔╝ ╚@14@██████@1E@╔╝ ╚@14@██████@1E@╔╝ @14@██@1E@║  @14@██@1E@║                   @1F@│ "
  45.         Print "@0C@  @1C@ @10@│               @1E@╚═════╝   ╚═════╝   ╚═════╝  ╚═╝  ╚═╝                   @1F@│ "
  46.         Print "@0C@  @14@ @1F@└───────────────────────────────────────────────────────────────────────┘ @00@"
  47.         Print
  48.         Print " @0A@ "; s4479
  49.         Print
  50.         Print " @0A@ "; s4483
  51.         Print
  52.         Print "  @03@Are you gonna @04@FLAME @03@'em back@0E@? @0C@(@09@Y/n@0C@)";
  53.         Input s4558
  54.         If s4558 = "y" Then
  55.           GoTo 454
  56.         End If
  57.   358   If s4558 = "Y" Then
  58.           GoTo 454
  59.         End If
  60.   381   If s4558 = "n" Then
  61.           GoTo 684
  62.         End If
  63.   404   If s4558 = "N" Then
  64.           GoTo 684
  65.         End If
  66.   427   If (InKey(1213417543) = "") = 0 Then GoTo 454
  67.       Loop
  68.   454 Open "furnace.dat" For Output As 3
  69.       Do
  70.   474   Cls 
  71.         Locate 10, 1
  72.         Print "@0B@Please enter an @0D@ALIAS, @0B@or your @0D@Full Name @0B@if you're feeling brave!"
  73.         Print "@04@>";
  74.         Input s4637
  75.         If (s4637 = "") = 0 Then GoTo 531
  76.       Loop
  77.   531 ActivityLog "User Chose The Alias... " + s4637
  78.       Do
  79.   545   Cls 
  80.         Locate 10, 1
  81.         Print "@0B@Enter your @04@FLAME @0B@below, just finish the following statement@09@:"
  82.         Print "@0A@"; s4637; " @09@says that YOU @0E@...."
  83.         Print "@04@>";
  84.         Input s4562
  85.         If (s4562 = "") = 0 Then GoTo 628
  86.       Loop
  87.   628 Print #3, "@0B@Hey there @0C@@FIRST@, @0B@"; s4637; " @09@says that YOU @0E@...."
  88.       Print #3, s4562
  89.       ActivityLog s4637 + " Said You " + s4562
  90.   684 Cls 
  91.       If s4475 = "8bL78W0" Then
  92.       Else
  93.   710   Locate 9, 20
  94.         Print "@02@Thanks for opening @04@The Furnace Door@02@!"
  95.         Locate 11, 20
  96.         Print "@0B@Copyright 1994  @1C@ WasteLands Software @0B@"
  97.         Locate 13, 20
  98.         Print "  @0B@Registered to: @09@[ @0C@UNREGISTERED @09@]"
  99.         Locate 22, 1
  100.         WaitEnter 
  101.         GoTo 843
  102.       End If
  103.   774 Cls 
  104.       Locate 9, 20
  105.       Print "@02@Thanks for opening @04@The Furnace Door@02@!"
  106.       Locate 11, 20
  107.       Print "@0B@Copyright 1994  @1C@ WasteLands Software @0B@"
  108.       Locate 13, 20
  109.       Print "  @0F@REGISTERED to: @0B@@BBS@!"
  110.       Delay 4
  111.       Locate 22, 1
  112.       WaitEnter 
  113.   843 ActivityLog "User Closed Furnace Door"
  114.       Reset 
  115.       End 
  116.